home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD020b.dsk / FIXER.bas < prev    next >
BASIC Source File  |  2003-06-12  |  1KB  |  30 lines
  1. 100  REM ** FIXER **
  2. 110  TEXT : HOME :D$ =  CHR$(4): REM CTRL-D
  3. 120 T$ = "FILE FIXER"
  4. 130 L =  LEN(T$): HTAB 20 -L/2: PRINT T$
  5. 140  FOR I = 1 TO 40: PRINT "=";: NEXT 
  6. 150  VTAB 12: PRINT "PRESS " CHR$(98)"RETURN" CHR$(98)" TO RUN OR " CHR$(98)"SPACE" CHR$(98)" TO END"
  7. 160  GET A$: IF A$ =  CHR$(13)  THEN 200
  8. 170  PRINT : PRINT D$;"RUN CHECK BOOK MENU"
  9. 180  REM 
  10. 190  REM 
  11. 200  REM FIXER ROUTINE
  12. 210  HOME 
  13. 220  VTAB 3: PRINT "THIS PROGRAM WILL DISTROY YOUR"
  14. 230  PRINT : PRINT "FILE NAMED " CHR$(98)"CHECK" CHR$(98)
  15. 240  PRINT : PRINT "IF YOU WANT TO SAVE YOUR FILE"
  16. 250  PRINT : PRINT "YOU MUST END THIS PROGRAM AND"
  17. 260  PRINT : PRINT "MANUALLY TRANSFER THE FILE TO ANOTHER"
  18. 270  PRINT : PRINT "DISK, USING FID OR SOME OTHER"
  19. 280  PRINT : PRINT "COPY PROGRAM."
  20. 290  VTAB 23: PRINT "WHICH E)END OR C)CONTINUE ";: GET A$
  21. 300  IF A$ = "E"  THEN  PRINT : HOME : PRINT D$;"CATALOG": END 
  22. 310  HOME : PRINT "DISTROYING FILE NAMED " CHR$(98)"CHECK" CHR$(98)
  23. 320  VTAB 12: PRINT "PRESS RETURN TO CONTINUE"
  24. 330  PRINT "OR SPACE TO STOP ";: GET A$: IF A$ =  CHR$(32)  THEN  PRINT : GOTO 290
  25. 340  PRINT : PRINT D$;"DELETE CHECK"
  26. 350  PRINT D$;"OPEN CHECK,L50"
  27. 360  PRINT D$;"WRITE CHECK,R0"
  28. 370  PRINT 0
  29. 380  PRINT D$;"CLOSE"
  30. 390  PRINT D$;"RUN CHECK BOOK MENU"